Amiga Collections: Taifun/Taifun 245 (1993-06-10)(Manewaldt, A.)(DE)(PD).zip/Taifun 245 (1993-06-10)(Manewaldt, A.)(DE)(PD).adf/AntiCicloVir_V14.S

Text File | 1993-06-11 | 66KB | 4,242 lines

; AntiCicloVir @ 1992 by Matthias Gutt *
; Kantstr.16 * W-2120 Lüneburg
; Protection against `Revenge of the Lamer Extermin.I+ II`

; ,`Lamer LoadWB`,`Lamer VirusX`,`Return of the Lamer Extermin.`,

; `BGS 9 I+II`,`Bret Hawnes`,`CCCP`,`Color (TURK V1.3)`,

; `CompuPhagozyte 1+2+II`,`DAG Creator`,`Disaster Master V2`,

; `Disktroyer V1.0`,`,`Golden Rider`,`Gotcha Lamer`,`IRQ`,

; `JEFF_Butonic`,`SADDAM`,`Smily Cancer I+II` ,`Terrorists` and

; `T.F.C. Revenge LoadWB` .
; Virus-Statikum 1.4


Execbase = 4
OpenLibrary = -$0228
CloseLibrary = -$019E
Open = -$001E
Close = -$0024
Write = -$0030
Read = -$002A
Delay = -$00C6
DeleteFile = -$0048
OpenWindow = -$00CC
CloseWindow = -$0048
WaitPort = -$0180

;WBStartup-Head
move.l 4,a6
suba.l a1,a1
jsr -294(a6)

move.l d0,a4

tst.l 172(a4)
bne cliaufruf

lea 92(a4),a0
jsr -384(a6)

lea 92(a4),a0
jsr -372(a6)
bra WBAufruf
cliaufruf:
cmp.w #"-n",(a0)
beq AntiCicloVir
cmp.l #"DF0:",(a0)
beq Drive0
cmp.l #"df0:",(a0)
beq Drive0
cmp.l #"DF1:",(a0)
beq Drive1
cmp.l #"df1:",(a0)
beq Drive1
cmp.l #"DF2:",(a0)
beq Drive2
cmp.l #"df2:",(a0)
beq Drive2
cmp.l #"DF3:",(a0)
beq Drive3
cmp.l #"df3:",(a0)
beq Drive3
cmp.l #"RAM:",(a0)
beq RAM
cmp.l #"ram:",(a0)
beq RAM

CliAufruf2:
Begruessung:
add.l #$00070007,d0
cmp.l #$00FF00FF,d0
bge AntiCicloVir
move.w #1,d1

Prim:
move.b $dff005,d2

Second:
move.l d0,$dff180
move.l d0,$dff184
cmp.b $dff005,d2

beq.s Second
dbra d1,Prim
bra Begruessung


; AntiCicloVir
AntiCicloVir:
clr.l d0
clr.l d1
clr.l d2
clr.l d4
clr.l d5
clr.l d6
bsr OpenDos
cmp.l #0,d0
beq Ende
move.l d0,Dosbase
bsr OpenIntui
cmp.l #0,d0
beq CloseDos
move.l d0,Intuibase
bsr OpenWin
cmp.l #0,d0
beq CloseAll
move.l d0,Handle
bsr Vektoren_Tabelle
bsr Schreiben
bsr CheckMem
bsr CheckMem2
bsr CloseWin
bsr CloseIntui
bra CloseDos

WBAufruf:
Begruessung2:
add.l #$00070007,d0
cmp.l #$00FF00FF,d0
bge AntiCicloVir2
move.w #1,d1

Prim2:
move.b $dff005,d2

Second2:
move.l d0,$dff180
move.l d0,$dff184
cmp.b $dff005,d2

beq.s Second2

dbra d1,Prim2
bra Begruessung2

AntiCicloVir2:
clr.l d0
clr.l d1
clr.l d2
clr.l d3
clr.l d4
clr.l d5
clr.l d6
bsr OpenDos
cmp.l #0,d0
beq Ende
move.l d0,Dosbase
bsr OpenIntui
cmp.l #0,d0
beq CloseDos
move.l d0,Intuibase
bsr Vektoren_Tabelle
bsr CheckMem2
bsr CloseIntui
bra CloseDos

Drive0:
clr.l d4
clr.l d5
clr.l d6
move.l #StartupD0,d5
cmp.l #"DF0:",(a0)+
cmp.b #"L",(a0)
beq LHeader0
cmp.b #"l",(a0)
beq LHeader0
bsr OpenDos
cmp.l #0,d0
beq Ende
move.l d0,Dosbase
bsr OpenWin
cmp.l #0,d0
beq CloseDos
move.l d0,Handle
bsr Schreiben
bsr CheckMem
bsr AllocMem
tst.l d0
beq notenough
bra H1
Drive01:
bra H6
Drive02:
bra H14
Drive03:
bra H19
Drive04:
bra H24
Drive05:
bra H29
Drive06:
bra H35
Drive07:
bra H40
Drive08:
bra H45
Drive09:
bra H50
Drive010:
bra H55
Drive011:
bra H60
Drive012:
bra H65
Drive013:
bra H70
Drive014:
bra H75
Drive015:
bra H80
Drive016:
bra H85
Drive017:
bra H90
Drive018:
bra H95
Drive019:
bra H100
Drive020:
bra H105
Drive021:
bra H110
Drive022:
bra H115



Drive1:
clr.l d4
clr.l d5
clr.l d6
move.l #StartupD1,d5
cmp.l #"DF1:",(a0)+
cmp.b #"L",(a0)
beq LHeader1
cmp.b #"l",(a0)
beq LHeader1
bsr OpenDos
cmp.l #0,d0
beq Ende
move.l d0,Dosbase
bsr OpenWin
cmp.l #0,d0
beq CloseDos
move.l d0,Handle
bsr Schreiben
bsr CheckMem
bsr AllocMem
tst.l d0
beq notenough
bra H2
Drive11:
bra H10
Drive12:
bra H15
Drive13:
bra H20
Drive14:
bra H25
Drive15:
bra H30
Drive16:
bra H36
Drive17:
bra H41
Drive18:
bra H46
Drive19:
bra H51
Drive110:
bra H56
Drive111:
bra H61
Drive112:
bra H66
Drive113:
bra H71
Drive114:
bra H76
Drive115:
bra H81
Drive116:
bra H86
DRive117:
bra H91
Drive118:
bra H96
Drive119:
bra H101
Drive120:
bra H106
Drive121:
bra H111
Drive122:
bra H115



Drive2:
clr.l d4
clr.l d5
clr.l d6
move.l #StartupD2,d5
cmp.l #"DF2:",(a0)+
cmp.b #"L",(a0)
beq LHeader2
cmp.b #"l",(a0)
beq LHeader2
bsr OpenDos
cmp.l #0,d0
beq Ende
move.l d0,Dosbase
bsr OpenWin
cmp.l #0,d0
beq CloseDos
move.l d0,Handle
bsr Schreiben
bsr CheckMem
bsr AllocMem
tst.l d0
beq notenough
bra H3
Drive21:
bra H11
Drive22:
bra H16
Drive23:
bra H21
Drive24:
bra H26
Drive25:
bra H31
Drive26:
bra H37
Drive27:
bra H42
Drive28:
bra H47
Drive29:
bra H52
Drive210:
bra H57
Drive211:
bra H62
Drive212:
bra H67
Drive213:
bra H72
Drive214:
bra H77
Drive215:
bra H82
Drive216:
bra H87
Drive217:
bra H92
Drive218:
bra H97
Drive219:
bra H102
Drive220:
bra H107
Drive221:
bra H112
Drive222:
bra H115




Drive3:
clr.l d4
clr.l d5
clr.l d6
move.l #StartupD3,d5
cmp.l #"DF3:",(a0)+
cmp.b #"L",(a0)
beq LHeader3
cmp.b #"l",(a0)
beq LHeader3
bsr OpenDos
cmp.l #0,d0
beq Ende
move.l d0,Dosbase
bsr OpenWin
cmp.l #0,d0
beq CloseDos
move.l d0,Handle
bsr Schreiben
bsr CheckMem
bsr AllocMem
tst.l d0
beq notenough
bra H4
Drive31:
bra H12
Drive32:
bra H17
Drive33:
bra H22
Drive34:
bra H27
Drive35:
bra H32
Drive36:
bra H38
Drive37:
bra H43
Drive38:
bra H48
Drive39:
bra H53
Drive310:
bra H58
Drive311:
bra H63
Drive312:
bra H68
Drive313:
bra H73
Drive314:
bra H78
Drive315:
bra H83
Drive316:
bra H88
Drive317:
bra H93
Drive318:
bra H98
Drive319:
bra H103
Drive320:
bra H108
Drive321:
bra H113
Drive322:
bra H115




RAM:
clr.l d4
clr.l d5
clr.l d6
move.l #StartupR,d5
cmp.l #"RAM:",(a0)+
cmp.b #"L",(a0)
beq LHeaderR
cmp.b #"l",(a0)
beq LHeaderR
bsr OpenDos
cmp.l #0,d0
beq Ende
move.l d0,Dosbase
bsr OpenWin
cmp.l #0,d0
beq CloseDos
move.l d0,Handle
bsr Schreiben
bsr CheckMem
bsr AllocMem
tst.l d0
beq notenough
bra H5
RAM1:
bra H13
RAM2:
bra H18
RAM3:
bra H23
RAM4:
bra H28
RAM5:
bra H33
RAM6:
bra H39
RAM7:
bra H44
RAM8:
bra H49
RAM9:
bra H54
RAM10:
bra H59
RAM11:
bra H64
RAM12:
bra H69
RAM13:
bra H74
RAM14:
bra H79
RAM15:
bra H84
RAM16:
bra H89
RAM17:
bra H94
RAM18:
bra H99
RAM19:
bra H104
RAM20:
bra H109
RAM21:
bra H114
RAM22:
bra H115


LHeader0:
bsr OpenDos
cmp.l #0,d0
beq Ende
move.l d0,Dosbase
bsr OpenWin
cmp.l #0,d0
beq CloseDos
move.l d0,Handle
bsr Schreiben
bsr CheckMem
bsr AllocMem
tst.l d0
beq notenough
bra L1
Header01:
bra L6
Header02:
bra L11
Header03:
bra Drive022

LHeader1:
bsr OpenDos
cmp.l #0,d0
beq Ende
move.l d0,Dosbase
bsr OpenWin
cmp.l #0,d0
beq CloseDos
move.l d0,Handle
bsr Schreiben
bsr CheckMem
bsr AllocMem
tst.l d0
beq notenough
bra L2
Header11:
bra L7
Header12:
bra L12
Header13:
bra Drive122

LHeader2:
bsr OpenDos
cmp.l #0,d0
beq Ende
move.l d0,Dosbase
bsr OpenWin
cmp.l #0,d0
beq CloseDos
move.l d0,Handle
bsr Schreiben
bsr CheckMem
bsr AllocMem
tst.l d0
beq notenough
bra L3
Header21:
bra L8
Header22:
bra L13
Header23:
bra Drive222

LHeader3:
bsr OpenDos
cmp.l #0,d0
beq Ende
move.l d0,Dosbase
bsr OpenWin
cmp.l #0,d0
beq CloseDos
move.l d0,Handle
bsr Schreiben
bsr CheckMem
bsr AllocMem
tst.l d0
beq notenough
bra L4
Header31:
bra L9
Header32:
bra L14
Header33:
bra Drive322

LHeaderR:
bsr OpenDos
cmp.l #0,d0
beq Ende
move.l d0,Dosbase
bsr OpenWin
cmp.l #0,d0
beq CloseDos
move.l d0,Handle
bsr Schreiben
bsr CheckMem
bsr AllocMem
tst.l d0
beq notenough
bra L5
HeaderR1:
bra L10
HeaderR2:
bra L15
HeaderR3:
bra RAM22

Checking:
move.l #CheckText,d2
move.l #CheckTextende,d3
bsr Ausgabe
rts


L1:
move.l #SADDAMD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Header01
bsr Checking
move.l #SADDAMD0,d2
move.l #SADDAMD0ende,d3
bsr Ausgabe
move.l #1848,d3
bsr Laden
cmp.l #$756D6500,$00000530(a5)
beq L1OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra Header01
L1OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000530(a5)
bra Header01

L2:
move.l #SADDAMD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Header11
bsr Checking
move.l #SADDAMD1,d2
move.l #SADDAMD1ende,d3
bsr Ausgabe
move.l #1848,d3
bsr Laden
cmp.l #$756D6500,$00000530(a5)
beq L2OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra Header11
L2OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000530(a5)
bra Header11

L3:
move.l #SADDAMD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Header21
bsr Checking
move.l #SADDAMD2,d2
move.l #SADDAMD2ende,d3
bsr Ausgabe
move.l #1848,d3
bsr Laden
cmp.l #$756D6500,$00000530(a5)
beq L3OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra Header21
L3OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000530(a5)
bra Header21

L4:
move.l #SADDAMD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Header31
bsr Checking
move.l #SADDAMD3,d2
move.l #SADDAMD3ende,d3
bsr Ausgabe
move.l #1848,d3
bsr Laden
cmp.l #$756D6500,$00000530(a5)
beq L4OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra Header31
L4OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000530(a5)
bra Header31

L5:
move.l #SADDAMR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq HeaderR1
bsr Checking
move.l #SADDAMR,d2
move.l #SADDAMRende,d3
bsr Ausgabe
move.l #1848,d3
bsr Laden
cmp.l #$756D6500,$00000530(a5)
beq L5OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra HeaderR1
L5OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000530(a5)
bra HeaderR1

L6:
move.l #RAMHandlerD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Header02
bsr Checking
move.l #RAMHandlerD0,d2
move.l #RAMHandlerD0ende,d3
bsr Ausgabe
move.l #5000,d3
bsr Laden
cmp.l #$0000000C,$00000020(a5)
beq L6OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra Header02
L6OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000020(a5)
bra Header02

L7:
move.l #RAMHandlerD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Header12
bsr Checking
move.l #RAMHandlerD1,d2
move.l #RAMHandlerD1ende,d3
bsr Ausgabe
move.l #5000,d3
bsr Laden
cmp.l #$0000000C,$00000020(a5)
beq L7OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra Header12
L7OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000020(a5)
bra Header12

L8:
move.l #RAMHandlerD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Header22
bsr Checking
move.l #RAMHandlerD2,d2
move.l #RAMHandlerD2ende,d3
bsr Ausgabe
move.l #5000,d3
bsr Laden
cmp.l #$0000000C,$00000020(a5)
beq L8OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra Header22
L8OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000020(a5)
bra Header22

L9:
move.l #RAMHandlerD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Header32
bsr Checking
move.l #RAMHandlerD3,d2
move.l #RAMHandlerD3ende,d3
bsr Ausgabe
move.l #5000,d3
bsr Laden
cmp.l #$0000000C,$00000020(a5)
beq L9OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra Header32
L9OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000020(a5)
bra Header32

L10:
move.l #RAMHandlerR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq HeaderR2
bsr Checking
move.l #RAMHandlerR,d2
move.l #RAMHandlerRende,d3
bsr Ausgabe
move.l #5000,d3
bsr Laden
cmp.l #$0000000C,$00000020(a5)
beq L10OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra HeaderR2
L10OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000020(a5)
bra HeaderR2

L11:
move.l #PortHandlerD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Header03
bsr Checking
move.l #PortHandlerD0,d2
move.l #PortHandlerD0ende,d3
bsr Ausgabe
move.l #1364,d3
bsr Laden
cmp.l #$76696365,$00000490(a5)
beq L11OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra Header03
L11OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000490(a5)
bra Header03

L12:
move.l #PortHandlerD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Header13
bsr Checking
move.l #PortHandlerD1,d2
move.l #PortHandlerD1ende,d3
bsr Ausgabe
move.l #1364,d3
bsr Laden
cmp.l #$76696365,$00000490(a5)
beq L12OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra Header13
L12OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000490(a5)
bra Header13

L13:
move.l #PortHandlerD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Header23
bsr Checking
move.l #PortHandlerD2,d2
move.l #PortHandlerD2ende,d3
bsr Ausgabe
move.l #1364,d3
bsr Laden
cmp.l #$76696365,$00000490(a5)
beq L13OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra Header23
L13OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000490(a5)
bra Header23

L14:
move.l #PortHandlerD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Header33
bsr Checking
move.l #PortHandlerD3,d2
move.l #PortHandlerD3ende,d3
bsr Ausgabe
move.l #1364,d3
bsr Laden
cmp.l #$76696365,$00000490(a5)
beq L14OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra Header33
L14OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000490(a5)
bra Header33

L15:
move.l #PortHandlerR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq HeaderR3
bsr Checking
move.l #PortHandlerR,d2
move.l #PortHandlerRende,d3
bsr Ausgabe
move.l #1364,d3
bsr Laden
cmp.l #$76696365,$00000490(a5)
beq L15OK
move.l #WarnText,d2
move.l #WarnTextende,d3
bsr Ausgabe
bra HeaderR3
L15OK:
move.l #OKText,d2
move.l #OKTextende,d3
bsr Ausgabe
clr.l $00000490(a5)
bra HeaderR3

Vektoren_Tabelle:
bsr OpenTable
cmp.l #0,d0
beq Vektorenende
move.l d0,Vektorenhandle
bsr Vektoren
bsr Warten
bra Vektorenende

OpenTable:
move.l Dosbase,a6
move.l #Tabelle,d1
move.l #1006,d2
jsr Open(a6)
rts

Vektoren:
Cold:
move.l 4,a6
cmp.l #0,42(a6)
beq ColdZero
bra ColdVirus
Cool:
move.l 4,a6
cmp.l #0,46(a6)
beq CoolZero
bra CoolVirus
Warm:
move.l 4,a6
cmp.l #0,50(a6)
beq WarmZero
bra WarmVirus
KickMem:
move.l 4,a6
cmp.l #0,546(a6)
beq KickMemZero
bra KickMemVirus
KickTag:
move.l 4,a6
cmp.l #0,550(a6)
beq KickTagZero
bra KickTagVirus
KickCheck:
move.l 4,a6
cmp.l #0,554(a6)
beq KickCheckZero
bra KickCheckVirus
Teil2:
rts

ColdZero:
move.l 4,a6
move.l #ColdZeroText,d2
move.l #ColdZeroTextende,d3
bsr Ausgabe2
bra Cool

ColdVirus:
move.l 4,a6
move.l #ColdVirusText,d2
move.l #ColdVirusTextende,d3
bsr Ausgabe2
bra Cool

CoolZero:
move.l 4,a6
move.l #CoolZeroText,d2
move.l #CoolZeroTextende,d3
bsr Ausgabe2
bra Warm

CoolVirus:
move.l 4,a6
move.l #CoolVirusText,d2
move.l #CoolVirusTextende,d3
bsr Ausgabe2
bra Warm

WarmZero:
move.l 4,a6
move.l #WarmZeroText,d2
move.l #WarmZeroTextende,d3
bsr Ausgabe2
bra KickMem

WarmVirus:
move.l 4,a6
move.l #warmVirusText,d2
move.l #WarmVirusTextende,d3
bsr Ausgabe2
bra KickMem

KickMemZero:
move.l 4,a6
move.l #KickMemZeroText,d2
move.l #KickMemZeroTextende,d3
bsr Ausgabe2
bra KickTag

KickMemVirus:
move.l 4,a6
move.l #KickMemVirusText,d2
move.l #KickMemVirusTextende,d3
bsr Ausgabe2
bra KickTag

KickTagZero:
move.l 4,a6
move.l #KickTagZeroText,d2
move.l #KickTagZeroTextende,d3
bsr Ausgabe2
bra KickCheck

KickTagVirus:
move.l 4,a6
move.l #KickTagVirusText,d2
move.l #KickTagVirusTextende,d3
bsr Ausgabe2
bra KickCheck

KickCheckZero:
move.l 4,a6
move.l #KickCheckZeroText,d2
move.l #KickCheckZeroTextende,d3
bsr Ausgabe2
bra Teil2

KickCheckVirus:
move.l 4,a6
move.l #KickCheckVirusText,d2
move.l #KickCheckVirusTextende,d3
bsr Ausgabe2
bra Teil2

Warten:
move.l Dosbase,a6
move.l #300,d1
jsr Delay(a6)

CloseTable:
move.l Dosbase,a6
move.l Vektorenhandle,d1
jsr Close(a6)
rts

Ausgabe2:
move.l Dosbase,a6
move.l Vektorenhandle,d1
sub.l d2,d3
jsr Write(a6)
rts

Vektorenende:
rts






CheckMem:

Weiter:
move.l 4,a6
cmp.l #"TURK",$00070260
beq ColorVirus
cmp.l #"illi",$0007C0C0
beq CompuPhagozyteIIVirus
cmp.l #"Gold",$0007C34C
beq GoldenRiderVirus
move.l 42(a6),a2
cmp.l #"libr",$00000560(a2)
beq SADDAMVirus
move.l 46(a6),a2
cmp.l #"CCCP",$000000E0(a2)
beq CCCPVirus2
move.l 550(a6),a2
cmp.l #"TTV1",$00000A26(a2)
beq VirusText
cmp.l #"-seq",$00000562(a2)
beq DisasterMasterMemoryVirus
cmp.l #"TTV1",$0000007A(a2)
beq TerroristsMemoryVirus
cmp.l #"amer",-$000000DC(a2)
beq RETURNMemoryVirus
cmp.l #"RQ-T",$00000348(a2)
beq IRQVirus
cmp.l #"DASA",$000001A6(a2)
beq JEFFButonicVirus
move.l -454(a6),a2
cmp.l #"AMER",$000000F2(a2)
beq GotchaLamerVirus
move.l 46(a6),a2
move.l 550(a6),a3
Virusende2:
cmp.l #$38204F63,$0007DF22
beq RLE_Virus
cmp.l #"1986",$0007DF30
beq RLE_Virus
cmp.l #$52494F4E,$0007FB00
beq SmilyCancerVirus
cmp.l #"BRET",$0007F004
beq BretHawnesVirus
cmp.l #"gozy",$0007C400
beq CompuPhagozyteVirus
cmp.l #"The ",$0007C380
beq CompuPhagozyte2Virus
cmp.l #"tiCi",$0007E0D0
beq AntiCicloVirMemory
cmp.l #$38204F63,$0007DF22
bne Virusende
cmp.l #"1986",$0007DF30
bne Virusende
cmp.l #$52494F4E,$0007FB00
bne Virusende
cmp.l #"BRET",$0007F004
bne Virusende
cmp.l #"gozy",$0007C400
bne Virusende
cmp.l #"The ",$0007C380
bne Virusende
cmp.l #"tiCi",$0007E0D0
bne Virusende
rts

VirusEnde:
move.l #VirusendeText,d2
move.l #VirusendeTextende,d3
bsr Ausgabe
move.l 4,a6
clr.l 42(a6)
clr.l 46(a6)
clr.l 550(a6)
rts

Drivename0:
move.l #DiskVirusText,d2
move.l #DiskVirusTextende,d3
bsr Ausgabe
move.l #DF0Text,d2
move.l #DF0Textende,d3
bsr Ausgabe
move.l #DiskVirusText2,d2
move.l #DiskVirusText2Ende,d3
bsr Ausgabe
rts

Drivename1:
move.l #DiskVirusText,d2
move.l #DiskVirusTextende,d3
bsr Ausgabe
move.l #DF1Text,d2
move.l #DF1Textende,d3
bsr Ausgabe
move.l #DiskVirusText2,d2
move.l #DiskVirusText2Ende,d3
bsr Ausgabe
rts

Drivename2:
move.l #DiskVirusText,d2
move.l #DiskVirusTextende,d3
bsr Ausgabe
move.l #DF2Text,d2
move.l #DF2Textende,d3
bsr Ausgabe
move.l #DiskVirusText2,d2
move.l #DiskVirusText2Ende,d3
bsr Ausgabe
rts

Drivename3:
move.l #DiskVirusText,d2
move.l #DiskVirusTextende,d3
bsr Ausgabe
move.l #DF3Text,d2
move.l #DF3Textende,d3
bsr Ausgabe
move.l #DiskVirusText2,d2
move.l #DiskVirusText2Ende,d3
bsr Ausgabe
rts

RAMname:
move.l #DiskVirusText,d2
move.l #DiskVirusTextende,d3
bsr Ausgabe
move.l #RAMText,d2
move.l #RAMTextende,d3
bsr Ausgabe
move.l #DiskVirusText2,d2
move.l #DiskVirusText2Ende,d3
bsr Ausgabe
rts

H1:
move.l #Lamer1,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq DRive01
move.l #LamerText,d2
move.l #LamerTextende,d3
bsr Ausgabe
bsr Drivename0
move.l #Lamer1,d4
bsr Virenloeschen
bra Drive01

H2:
move.l #Lamer1D1,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq Drive11
move.l #LamerText,d2
move.l #LamerTextende,d3
bsr Ausgabe
bsr Drivename1
move.l #Lamer1D1,d4
bsr Virenloeschen
bra Drive11

H3:
move.l #Lamer1D2,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq Drive21
move.l #LamerText,d2
move.l #LamerTextende,d3
bsr Ausgabe
bsr Drivename2
move.l #Lamer1D2,d4
bsr Virenloeschen
bra Drive21

H4:
move.l #Lamer1D3,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq DRive31
move.l #LamerText,d2
move.l #LamerTextende,d3
bsr Ausgabe
bsr Drivename3
move.l #Lamer1D3,d4
bsr Virenloeschen
bra Drive31

H5:
move.l #Lamer1R,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq RAM1
move.l #LamerText,d2
move.l #LamerTextende,d3
bsr Ausgabe
bsr RAMname
move.l #Lamer1R,d4
bsr Virenloeschen
bra RAM1

H6:
move.l #Lamer2,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq Drive02
move.l #LamerText,d2
move.l #LamerTextende,d3
bsr Ausgabe
bsr Drivename0
move.l #Lamer2,d4
bsr Virenloeschen
bra DRive02

H10:
move.l #Lamer2D1,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq DRive12
move.l #LamerText,d2
move.l #LamerTextende,d3
bsr Ausgabe
bsr Drivename1
move.l #Lamer2D1,d4
bsr Virenloeschen
bra Drive12

H11:
move.l #Lamer2D2,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq Drive22
move.l #LamerText,d2
move.l #LamerTextende,d3
bsr Ausgabe
bsr Drivename2
move.l #Lamer2D2,d4
bsr Virenloeschen
bra Drive22

H12:
move.l #Lamer2D3,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq Drive32
move.l #LamerText,d2
move.l #LamerTextende,d3
bsr Ausgabe
bsr Drivename3
move.l #Lamer2D3,d4
bsr Virenloeschen
bra Drive32

H13:
move.l #Lamer2R,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq RAM2
move.l #LamerText,d2
move.l #LamerTextende,d3
bsr Ausgabe
bsr RAMname
move.l #Lamer2R,d4
bsr Virenloeschen
bra RAM2

H14:
move.l #BGS99,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq Drive03
move.l #BGS9Text,d2
move.l #BGS9Textende,d3
bsr Ausgabe
move.l #BGS99,d4
bsr Virenloeschen
bra Drive03

H15:
move.l #BGS99D1,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq Drive13
move.l #BGS9D1Text,d2
move.l #BGS9D1Textende,d3
bsr Ausgabe
move.l #BGS99D1,d4
bsr Virenloeschen
bra Drive13

H16:
move.l #BGS99D2,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq Drive23
move.l #BGS9D2Text,d2
move.l #BGS9D2Textende,d3
bsr Ausgabe
move.l #BGS99D2,d4
bsr Virenloeschen
bra Drive23

H17:
move.l #BGS99D3,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq Drive33
move.l #BGS9D3Text,d2
move.l #BGS9D3Textende,d3
bsr Ausgabe
move.l #BGS99D3,d4
bsr Virenloeschen
bra DRive33

H18:
move.l #BGS99R,d1
bsr Virensuche
move.l d0,DateiHandle
cmp.l #0,d0
beq RAM3
move.l #BGS9RText,d2
move.l #BGS9RTextende,d3
bsr Ausgabe
move.l #BGS99R,d4
bsr Virenloeschen
bra RAM3

H19:
move.l #BGS99Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive04
move.l #BGS9Text,d2
move.l #BGS9Textende,d3
bsr Ausgabe
move.l #BGS99Root,d4
bsr Virenloeschen
bra Drive04

H20:
move.l #BGS99D1Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive14
move.l #BGS9D1Text,d2
move.l #BGS9D1Textende,d3
bsr Ausgabe
move.l #BGS99D1Root,d4
bsr Virenloeschen
bra Drive14

H21:
move.l #BGS99D2Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive24
move.l #BGS9D2Text,d2
move.l #BGS9D2Textende,d3
bsr Ausgabe
move.l #BGS99D2Root,d4
bsr Virenloeschen
bra Drive24

H22:
move.l #BGS99D3Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive34
move.l #BGS9D3Text,d2
move.l #BGS9D3Textende,d3
bsr Ausgabe
move.l #BGS99D3Root,d4
bsr Virenloeschen
bra Drive34

H23:
move.l #BGS99RRoot,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM4
move.l #BGS9RText,d2
move.l #BGS9RTextende,d3
bsr Ausgabe
move.l #BGS99RRoot,d4
bsr Virenloeschen
bra RAM4

H24:
move.l #BGS99II,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive05
move.l #BGS9IIText,d2
move.l #BGS9IITextende,d3
bsr Ausgabe
move.l #BGS99II,d4
bsr Virenloeschen
bra Drive05

H25:
move.l #BGS99D1II,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive15
move.l #BGS9D1IIText,d2
move.l #BGS9D1IITextende,d3
bsr Ausgabe
move.l #BGS99D1II,d4
bsr Virenloeschen
bra Drive15

H26:
move.l #BGS99D2II,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive25
move.l #BGS9D2IIText,d2
move.l #BGS9D2IITextende,d3
bsr Ausgabe
move.l #BGS99D2II,d4
bsr Virenloeschen
bra Drive25

H27:
move.l #BGS99D3II,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive35
move.l #BGS9D3IIText,d2
move.l #BGS9D3IITextende,d3
bsr Ausgabe
move.l #BGS99D3II,d4
bsr Virenloeschen
bra Drive35

H28:
move.l #BGS99RII,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM5
move.l #BGS9RIIText,d2
move.l #BGS9RIITextende,d3
bsr Ausgabe
move.l #BGS99RII,d4
bsr Virenloeschen
bra RAM5

H29:
move.l #BGS99IIRoot,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive06
move.l #BGS9IIText,d2
move.l #BGS9IITextende,d3
bsr Ausgabe
move.l #BGS99IIRoot,d4
bsr Virenloeschen
bra Drive06

H30:
move.l #BGS99D1IIRoot,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive16
move.l #BGS9D1IIText,d2
move.l #BGS9D1IITextende,d3
bsr Ausgabe
move.l #BGS99D1IIRoot,d4
bsr Virenloeschen
bra Drive16

H31:
move.l #BGS99D2IIRoot,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive26
move.l #BGS9D2IIText,d2
move.l #BGS9D2IITextende,d3
bsr Ausgabe
move.l #BGS99D2IIRoot,d4
bsr Virenloeschen
bra Drive26

H32:
move.l #BGS99D3IIRoot,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive36
move.l #BGS9D3IIText,d2
move.l #BGS9D3IITextende,d3
bsr Ausgabe
move.l #BGS99D3IIRoot,d4
bsr Virenloeschen
bra Drive36

H33:
move.l #BGS99RIIRoot,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM6
move.l #BGS9RIIText,d2
move.l #BGS9RIITextende,d3
bsr Ausgabe
move.l #BGS99RIIRoot,d4
bsr Virenloeschen
bra RAM6

H35:
move.l #TerroristsD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive07
move.l #TerroristsText,d2
move.l #TerroristsTextende,d3
bsr Ausgabe
bsr Drivename0
move.l #TerroristsD0,d4
bsr Virenloeschen
bra Drive07

H36:
move.l #TerroristsD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive17
move.l #TerroristsText,d2
move.l #TerroristsTextende,d3
bsr Ausgabe
bsr Drivename1
move.l #TerroristsD1,d4
bsr Virenloeschen
bra Drive17

H37:
move.l #TerroristsD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive27
move.l #TerroristsText,d2
move.l #TerroristsTextEnde,d3
bsr Ausgabe
bsr Drivename2
move.l #TerroristsD2,d4
bsr Virenloeschen
bra Drive27

H38:
move.l #TerroristsD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive37
move.l #TerroristsText,d2
move.l #TerroristsTextende,d3
bsr Ausgabe
bsr Drivename3
move.l #TerroristsD3,d4
bsr Virenloeschen
bra Drive37

H39:
move.l #TerroristsR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM7
move.l #TerroristsText,d2
move.l #TerroristsTextende,d3
bsr Ausgabe
bsr RAMname
move.l #TerroristsR,d4
bsr Virenloeschen
bra RAM7

H40:
move.l #LamerLoadWBD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive08
move.l #4172,d3
bsr Laden
cmp.l #"LAME",$00000448(a5)
beq H40V
cmp.l #"=WO/",$00000C00(a5)
beq H40VV
cmp.l #"Fana",$00000050(a5)
beq H40VVV
bra Drive08
H40V:
move.l #LamerLoadWBText,d2
move.l #LamerLoadWBTextende,d3
bsr Ausgabe
bra H40VVVV
H40VV:
move.l #SmilyCancerIIText,d2
move.l #SmilyCancerIITextende,d3
bsr Ausgabe
bra H40VVVV
H40VVV:
move.l #TFCRevengeLoadWBText,d2
move.l #TFCRevengeLoadWBTextende,d3
bsr Ausgabe
H40VVVV:
bsr Drivename0
move.l #LamerLoadWBD0,d4
bsr Virenloeschen2
clr.l $00000448(a5)
clr.l $00000C00(a5)
clr.l $00000050(a5)
bra Drive08

H41:
move.l #LamerLoadWBD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive18
move.l #4172,d3
bsr Laden
cmp.l #"LAME",$00000448(a5)
beq H41V
cmp.l #"=WO/",$00000C00(a5)
beq H41VV
cmp.l #"Fana",$00000050(a5)
beq H41VVV
bra Drive18
H41V:
move.l #LamerLoadWBText,d2
move.l #LamerLoadWBTextende,d3
bsr Ausgabe
bra H41VVVV
H41VV:
move.l #SmilyCancerIIText,d2
move.l #SmilyCancerIITextende,d3
bsr Ausgabe
bra H41VVVV
H41VVV:
move.l #TFCRevengeLoadWBText,d2
move.l #TFCRevengeLoadWBTextende,d3
bsr Ausgabe
H41VVVV:
bsr Drivename1
move.l #LamerLoadWBD1,d4
bsr Virenloeschen2
clr.l $00000448(a5)
clr.l $00000C00(a5)
clr.l $00000050(a5)
bra Drive18

H42:
move.l #LamerLoadWBD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive28
move.l #4172,d3
bsr Laden
cmp.l #"LAME",$00000448(a5)
beq H42V
cmp.l #"=WO/",$00000C00(a5)
beq H42VV
cmp.l #"Fana",$00000050(a5)
beq H42VVV
bra Drive28
H42V:
move.l #LamerLoadWBText,d2
move.l #LamerLoadWBTextende,d3
bsr Ausgabe
bra H42VVVV
H42VV:
move.l #SmilyCancerIIText,d2
move.l #SmilyCancerIITextende,d3
bsr Ausgabe
bra H42VVVV
H42VVV:
move.l #TFCRevengeLoadWBText,d2
move.l #TFCRevengeLoadWBTextende,d3
bsr Ausgabe
H42VVVV:
bsr Drivename2
move.l #LamerLoadWBD2,d4
bsr Virenloeschen2
clr.l $00000448(a5)
clr.l $00000C00(a5)
clr.l $00000050(a5)
bra Drive28

H43:
move.l #LamerLoadWBD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive38
move.l #4172,d3
bsr Laden
cmp.l #"LAME",$00000448(a5)
beq H43V
cmp.l #"=WO/",$00000C00(a5)
beq H43VV
cmp.l #"Fana",$00000050(a5)
beq H43VVV
bra Drive38
H43V:
move.l #LamerLoadWBText,d2
move.l #LamerLoadWBTextende,d3
bsr Ausgabe
bra H43VVVV
H43VV:
move.l #SmilyCancerIIText,d2
move.l #SmilyCancerIITextende,d3
bsr Ausgabe
bra H43VVVV
H43VVV:
move.l #TFCRevengeLoadWBText,d2
move.l #TFCRevengeLoadWBTextende,d3
bsr Ausgabe
H43VVVV:
bsr Drivename3
move.l #LamerLoadWBD3,d4
bsr Virenloeschen2
clr.l $00000448(a5)
clr.l $00000C00(a5)
clr.l $00000050(a5)
bra Drive38

H44:
move.l #LamerLoadWBR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM8
move.l #4172,d3
bsr Laden
cmp.l #"LAME",$00000448(a5)
beq H44V
cmp.l #"=WO/",$00000C00(a5)
beq H44VV
cmp.l #"Fana",$00000050(a5)
beq H44VVV
bra RAM8
H44V:
move.l #LamerLoadWBText,d2
move.l #LamerLoadWBTextende,d3
bsr Ausgabe
bra H44VVVV
H44VV:
move.l #SmilyCancerIIText,d2
move.l #SmilyCancerIITextende,d3
bsr Ausgabe
bra H44VVVV
H44VVV:
move.l #TFCRevengeLoadWBText,d2
move.l #TFCRevengeLoadWBTextende,d3
bsr Ausgabe
H44VVVV:
bsr RAMname
bsr Ausgabe
move.l #LamerLoadWBR,d4
bsr Virenloeschen2
clr.l $00000448(a5)
clr.l $00000C00(a5)
clr.l $00000050(a5)
bra RAM8

H45:
move.l #LamerLoadWBD0Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive09
move.l #4172,d3
bsr Laden
cmp.l #"LAME",$00000448(a5)
beq H45V
cmp.l #"=WO/",$00000C00(a5)
beq H45VV
cmp.l #"Fana",$00000050(a5)
beq H45VVV
bra Drive09
H45V:
move.l #LamerLoadWBText,d2
move.l #LamerLoadWBTextende,d3
bsr Ausgabe
bra H45VVVV
H45VV:
move.l #SmilyCancerIIText,d2
move.l #SmilyCancerIITextende,d3
bsr Ausgabe
bra H45VVVV
H45VVV:
move.l #TFCRevengeLoadWBText,d2
move.l #TFCRevengeLoadWBTextende,d3
bsr Ausgabe
H45VVVV:
bsr Drivename0
move.l #LamerLoadWBD0Root,d4
bsr Virenloeschen2
clr.l $00000448(a5)
clr.l $00000C00(a5)
clr.l $00000050(a5)
bra Drive09

H46:
move.l #LamerLoadWBD1Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive19
move.l #4172,d3
bsr Laden
cmp.l #"LAME",$00000448(a5)
beq H46V
cmp.l #"=WO/",$00000C00(a5)
beq H46VV
cmp.l #"Fana",$00000050(a5)
beq H46VVV
bra Drive19
H46V:
move.l #LamerLoadWBText,d2
move.l #LamerLoadWBTextende,d3
bsr Ausgabe
bra H46VVVV
H46VV:
move.l #SmilyCancerIIText,d2
move.l #SmilyCancerIITextende,d3
bsr Ausgabe
bra H46VVVV
H46VVV:
move.l #TFCRevengeLoadWBText,d2
move.l #TFCRevengeLoadWBTextende,d3
bsr Ausgabe
H46VVVV:
bsr Drivename1
move.l #LamerLoadWBD1Root,d4
bsr Virenloeschen2
clr.l $00000448(a5)
clr.l $00000C00(a5)
clr.l $00000050(a5)
bra Drive19

H47:
move.l #LamerLoadWBD2Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive29
move.l #4172,d3
bsr Laden
cmp.l #"LAME",$00000448(a5)
beq H47V
cmp.l #"=WO/",$00000C00(a5)
beq H47VV
cmp.l #"Fana",$00000050(a5)
beq H47VVV
bra Drive29
H47V:
move.l #LamerLoadWBText,d2
move.l #LamerLoadWBTextende,d3
bsr Ausgabe
bra H47VVVV
H47VV:
move.l #SmilyCancerIIText,d2
move.l #SmilyCancerIITextende,d3
bsr Ausgabe
bra H47VVVV
H47VVV:
move.l #TFCRevengeLoadWBText,d2
move.l #TFCRevengeLoadWBTextende,d3
bsr Ausgabe
H47VVVV:
bsr Drivename2
move.l #LamerLoadWBD2Root,d4
bsr Virenloeschen2
clr.l $00000448(a5)
clr.l $00000C00(a5)
clr.l $00000050(a5)
bra Drive29

H48:
move.l #LamerLoadWBD3Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive39
move.l #4172,d3
bsr Laden
cmp.l #"LAME",$00000448(a5)
beq H48V
cmp.l #"=WO/",$00000C00(a5)
beq H48VV
cmp.l #"Fana",$00000050(a5)
beq H48VVV
bra Drive39
H48V:
move.l #LamerLoadWBText,d2
move.l #LamerLoadWBTextende,d3
bsr Ausgabe
bra H48VVVV
H48VV:
move.l #SmilyCancerIIText,d2
move.l #SmilyCancerIITextende,d3
bsr Ausgabe
bra H48VVVV
H48VVV:
move.l #TFCRevengeLoadWBText,d2
move.l #TFCRevengeLoadWBTextende,d3
bsr Ausgabe
H48VVVV:
bsr Drivename3
move.l #LamerLoadWBD3Root,d4
bsr Virenloeschen2
clr.l $00000448(a5)
clr.l $00000C00(a5)
clr.l $00000050(a5)
bra Drive39

H49:
move.l #LamerLoadWBRRoot,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM9
move.l #4172,d3
bsr Laden
cmp.l #"LAME",$00000448(a5)
beq H49V
cmp.l #"=WO/",$00000C00(a5)
beq H49VV
cmp.l #"Fana",$00000050(a5)
beq H49VVV
bra RAM9
H49V:
move.l #LamerLoadWBText,d2
move.l #LamerLoadWBTextende,d3
bsr Ausgabe
bra H49VVVV
H49VV:
move.l #SmilyCancerIIText,d2
move.l #SmilyCancerIITextende,d3
bsr Ausgabe
bra H49VVVV
H49VVV:
move.l #TFCRevengeLoadWBText,d2
move.l #TFCRevengeLoadWBTextende,d3
bsr Ausgabe
H49VVVV:
bsr RAMname
move.l #LamerLoadWBRRoot,d4
bsr Virenloeschen2
clr.l $00000448(a5)
clr.l $00000C00(a5)
clr.l $00000050(a5)
bra RAM9

H50:
move.l #ColorD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive010
move.l #2196,d3
bsr Laden
cmp.l #"TURK",$00000260(a5)
bne Drive010
move.l #ColorDiskText,d2
move.l #ColorDiskTextende,d3
bsr Ausgabe
bsr Drivename0
move.l #ColorD0,d4
bsr Virenloeschen2
clr.l $00000260(a5)
bra Drive010

H51:
move.l #ColorD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive110
move.l #2196,d3
bsr Laden
cmp.l #"TURK",$00000260(a5)
bne Drive110
move.l #ColorDiskText,d2
move.l #ColorDiskTextende,d3
bsr Ausgabe
bsr Drivename1
move.l #ColorD1,d4
bsr Virenloeschen2
clr.l $00000260(a5)
bra Drive110

H52:
move.l #ColorD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive210
move.l #2196,d3
bsr Laden
cmp.l #"TURK",$00000260(a5)
bne Drive210
move.l #ColorDiskText,d2
move.l #ColorDiskTextende,d3
bsr Ausgabe
bsr Drivename2
move.l #ColorD2,d4
bsr Virenloeschen2
clr.l $00000260(a5)
bra Drive210

H53:
move.l #ColorD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive310
move.l #2196,d3
bsr Laden
cmp.l #"TURK",$00000260(a5)
bne Drive310
move.l #ColorDiskText,d2
move.l #ColorDiskTextende,d3
bsr Ausgabe
bsr Drivename3
move.l #ColorD3,d4
bsr Virenloeschen2
clr.l $00000260(a5)
bra Drive310

H54:
move.l #ColorR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM10
move.l #2196,d3
bsr Laden
cmp.l #"TURK",$00000260(a5)
bne RAM10
move.l #ColorDiskText,d2
move.l #ColorDiskTextende,d3
bsr Ausgabe
bsr RAMname
move.l #ColorR,d4
bsr Virenloeschen2
clr.l $00000260(a5)
bra RAM10

H55:
move.l #ColorD0Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive011
move.l #2196,d3
bsr Laden
cmp.l #"TURK",$00000260(a5)
bne Drive011
move.l #ColorDiskText,d2
move.l #ColorDiskTextende,d3
bsr Ausgabe
bsr Drivename0
move.l #ColorD0Root,d4
bsr Virenloeschen2
clr.l $00000260(a5)
bra Drive011

H56:
move.l #ColorD1Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive111
move.l #2196,d3
bsr Laden
cmp.l #"TURK",$00000260(a5)
bne Drive111
move.l #ColorDiskText,d2
move.l #ColorDiskTextende,d3
bsr Ausgabe
bsr Drivename1
move.l #ColorD1Root,d4
bsr Virenloeschen2
clr.l $00000260(a5)
bra Drive111

H57:
move.l #ColorD2Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive211
move.l #2196,d3
bsr Laden
cmp.l #"TURK",$00000260(a5)
bne Drive211
move.l #ColorDiskText,d2
move.l #ColorDiskTextende,d3
bsr Ausgabe
bsr Drivename2
move.l #ColorD2Root,d4
bsr Virenloeschen2
clr.l $00000260(a5)
bra Drive211

H58:
move.l #ColorD3Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive311
move.l #2196,d3
bsr Laden
cmp.l #"TURK",$00000260(a5)
bne Drive311
move.l #ColorDiskText,d2
move.l #ColorDiskTextende,d3
bsr Ausgabe
bsr Drivename3
move.l #ColorD3Root,d4
bsr Virenloeschen2
clr.l $00000260(a5)
bra Drive311

H59:
move.l #ColorRRoot,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM11
move.l #2196,d3
bsr Laden
cmp.l #"TURK",$00000260(a5)
bne RAM11
move.l #ColorDiskText,d2
move.l #ColorDiskTextende,d3
bsr Ausgabe
bsr RAMname
move.l #ColorRRoot,d4
bsr Virenloeschen2
clr.l $00000260(a5)
bra RAM11

H60:
move.l #StartupD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive012
move.l #100,d3
bsr Laden
cmp.l #"cls ",(a5)
beq H60V
cmp.l #"cls ",$00000002(a5)
beq H60V
bra Drive012
H60V:
cmp.b #"*",$00000004(a5)
beq H60VV
cmp.b #"*",$00000006(a5)
beq H60VV
bra Drive012
H60VV:
move.l #DisasterMasterText,d2
move.l #DisasterMasterTextende,d3
bsr Ausgabe
bsr Drivename0
move.l #DisasterMasterD0,d4
bsr Virenloeschen2
move.l #DisasterMasterD0II,d4
bsr Virenloeschen2
clr.l (a5)
bra Drive012

H61:
move.l #StartupD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive112
move.l #100,d3
bsr Laden
cmp.l #"cls ",(a5)
beq H61V
cmp.l #"cls ",$00000002(a5)
beq H61V
bra Drive112
H61V:
cmp.b #"*",$00000004(a5)
beq H61VV
cmp.b #"*",$00000006(a5)
beq H61VV
bra Drive112
H61VV:
move.l #DisasterMasterText,d2
move.l #DisasterMasterTextende,d3
bsr Ausgabe
bsr Drivename1
move.l #DisasterMasterD1,d4
bsr Virenloeschen2
move.l #DisasterMasterD1II,d4
bsr Virenloeschen2
clr.l (a5)
bra Drive112

H62:
move.l #StartupD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive212
move.l #100,d3
bsr Laden
cmp.l #"cls ",(a5)
beq H62V
cmp.l #"cls ",$00000002(a5)
beq H62V
bra Drive212
H62V:
cmp.b #"*",$00000004(a5)
beq H62VV
cmp.b #"*",$00000006(a5)
beq H62VV
bra Drive212
H62VV:
move.l #DisasterMasterText,d2
move.l #DisasterMasterTextende,d3
bsr Ausgabe
bsr Drivename2
move.l #DisasterMasterD2,d4
bsr Virenloeschen2
move.l #DisasterMasterD2II,d4
bsr Virenloeschen2
clr.l (a5)
bra Drive212

H63:
move.l #StartupD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive312
move.l #100,d3
bsr Laden
cmp.l #"cls ",(a5)
beq H63V
cmp.l #"cls ",$00000002(a5)
beq H63V
bra Drive312
H63V:
cmp.b #"*",$00000004(a5)
beq H63VV
cmp.b #"*",$00000006(a5)
beq H63VV
bra Drive312
H63VV:
move.l #DisasterMasterText,d2
move.l #DisasterMasterTextende,d3
bsr Ausgabe
bsr Drivename3
move.l #DisasterMasterD3,d4
bsr Virenloeschen2
move.l #DisasterMasterD3II,d4
bsr Virenloeschen2
clr.l (a5)
bra Drive312

H64:
move.l #StartupR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM12
move.l #100,d3
bsr Laden
cmp.l #"cls ",(a5)
beq H64V
cmp.l #"cls ",$00000002(a5)
beq H64V
bra RAM12
H64V:
cmp.b #"*",$00000004(a5)
beq H64VV
cmp.b #"*",$00000006(a5)
beq H64VV
bra RAM12
H64VV:
move.l #DisasterMasterText,d2
move.l #DisasterMasterTextende,d3
bsr Ausgabe
bsr RAMname
move.l #DisasterMasterR,d4
bsr Virenloeschen2
move.l #DisasterMasterRII,d4
bsr Virenloeschen2
clr.l (a5)
bra RAM12

H65:
move.l #SADDAMD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive013
move.l #1848,d3
bsr Laden
cmp.l #"BitM",$00000702(a5)
beq H65V
cmp.l #$60040000,$00000024(a5)
beq H65VV
bra Drive013
H65V:
move.l #SADDAMDiskText,d2
move.l #SADDAMDiskTextende,d3
bsr Ausgabe
bsr Drivename0
move.l #SADDAMD0,d4
bsr Virenloeschen2
clr.l $00000702(a5)
bra Drive013
H65VV:
move.l #RETURND0Text,d2
move.l #RETURND0Textende,d3
bsr Ausgabe
move.l #SADDAMD0,d4
move.l #RETURND0,d6
bsr Virenloeschen3
clr.l $000024(a5)
bra Drive013

H66:
move.l #SADDAMD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive113
move.l #1848,d3
bsr Laden
cmp.l #"BitM",$000702(a5)
beq H66V
cmp.l #$60040000,$00000024(a5)
beq H66VV
bra Drive113
H66V:
move.l #SADDAMDiskText,d2
move.l #SADDAMDiskTextende,d3
bsr Ausgabe
bsr Drivename1
move.l #SADDAMD1,d4
bsr Virenloeschen2
clr.l $00000702(a5)
bra Drive113
H66VV:
move.l #RETURND1Text,d2
move.l #RETURND1Textende,d3
bsr Ausgabe
move.l #SADDAMD1,d4
move.l #RETURND1,d6
bsr Virenloeschen3
clr.l $00000024(a5)
bra Drive113

H67:
move.l #SADDAMD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive213
move.l #1848,d3
bsr Laden
cmp.l #"BitM",$00000702(a5)
beq H67V
cmp.l #$60040000,$00000024(a5)
beq H67VV
bra Drive213
H67V:
move.l #SADDAMDiskText,d2
move.l #SADDAMDiskTextende,d3
bsr Ausgabe
bsr Drivename2
move.l #SADDAMD2,d4
bsr Virenloeschen2
clr.l $00000702(a5)
bra Drive213
H67VV:
move.l #RETURND2Text,d2
move.l #RETURND2Textende,d3
bsr Ausgabe
move.l #SADDAMD2,d4
move.l #RETURND2,d6
bsr Virenloeschen3
clr.l $00000024(a5)
bra Drive213

H68:
move.l #SADDAMD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive313
move.l #1848,d3
bsr Laden
cmp.l #"BitM",$00000702(a5)
beq H68V
cmp.l #$60040000,$00000024(a5)
beq H68VV
bra Drive313
H68V:
move.l #SADDAMDiskText,d2
move.l #SADDAMDiskTextende,d3
bsr Ausgabe
bsr Drivename3
move.l #SADDAMD3,d4
bsr Virenloeschen2
clr.l $00000702(a5)
bra Drive313
H68VV:
move.l #RETURND3Text,d2
move.l #RETURND3Textende,d3
bsr Ausgabe
move.l #SADDAMD3,d4
move.l #RETURND3,d6
bsr Virenloeschen3
clr.l $00000024(a5)
bra Drive313

H69:
move.l #SADDAMR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM13
move.l #1848,d3
bsr Laden
cmp.l #"BitM",$00000702(a5)
beq H69V
cmp.l #$60040000,$00000024(a5)
beq H69VV
bra RAM13
H69V:
move.l #SADDAMDiskText,d2
move.l #SADDAMDiskTextende,d3
bsr Ausgabe
bsr RAMname
bsr Ausgabe
move.l #SADDAMR,d4
bsr Virenloeschen2
clr.l $00000702(a5)
bra RAM13
H69VV:
move.l #RETURNRText,d2
move.l #RETURNRTextende,d3
bsr Ausgabe
move.l #SADDAMR,d4
move.l #RETURNR,d6
bsr Virenloeschen3
clr.l $00000024(a5)
bra RAM13

H70:
move.l #AntiCicloVirD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive014
move.l #100,d3
bsr Laden
cmp.l #$000003E9,$0000001C(a5)
bne H70V
bra Drive014
H70V:
move.l #AntiCicloVirText,d2
move.l #AntiCicloVirTextende,d3
bsr Ausgabe
clr.l $0000001C(a5)
bra Drive014


H71:
move.l #AntiCicloVirD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive114
move.l #100,d3
bsr Laden
cmp.l #$000003E9,$0000001C(a5)
bne H71V
bra Drive114
H71V:
move.l #AntiCicloVirText,d2
move.l #AntiCicloVirTextende,d3
bsr Ausgabe
clr.l $0000001C(a5)
bra Drive114

H72:
move.l #AntiCicloVirD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive214
move.l #100,d3
bsr Laden
cmp.l #$000003E9,$0000001C(a5)
bne H72V
bra Drive214
H72V:
move.l #AntiCicloVirText,d2
move.l #AntiCicloVirTextende,d3
bsr Ausgabe
clr.l $0000001C(a5)
bra Drive214

H73:
move.l #AntiCicloVirD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive314
move.l #100,d3
bsr Laden
cmp.l #$000003E9,$0000001C(a5)
bne H73V
bra Drive314
H73V:
move.l #AntiCicloVirText,d2
move.l #AntiCicloVirTextende,d3
bsr Ausgabe
clr.l $0000001C(a5)
bra Drive314

H74:
move.l #AntiCicloVirR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM14
move.l #100,d3
bsr Laden
cmp.l #$000003E9,$0000001C(a5)
bne H74V
bra RAM14
H74V:
move.l #AntiCicloVirText,d2
move.l #AntiCicloVirTextende,d3
bsr Ausgabe
clr.l $0000001C(a5)
bra RAM14

H75:
move.l #BretHawnesD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive015
move.l #BretHawnesDiskText,d2
move.l #BretHawnesDiskTextende,d3
bsr Ausgabe
bsr Drivename0
move.l #BretHawnesD0,d4
bsr Virenloeschen
bra Drive015

H76:
move.l #BretHawnesD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive115
move.l #BretHawnesDiskText,d2
move.l #BretHawnesDiskTextende,d3
bsr Ausgabe
bsr Drivename1
move.l #BretHawnesD1,d4
bsr Virenloeschen
bra Drive115

H77:
move.l #BretHawnesD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive215
move.l #BretHawnesDiskText,d2
move.l #BretHawnesDiskTextende,d3
bsr Ausgabe
bsr Drivename2
move.l #BretHawnesD2,d4
bsr Virenloeschen
bra Drive215

H78:
move.l #BretHawnesD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive315
move.l #BretHawnesDiskText,d2
move.l #BretHawnesDiskTextende,d3
bsr Ausgabe
bsr Drivename3
move.l #BretHawnesD3,d4
bsr Virenloeschen
bra Drive315

H79:
move.l #BretHawnesR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM15
move.l #BretHawnesDiskText,d2
move.l #BretHawnesDiskTextende,d3
bsr Ausgabe
bsr RAMname
move.l #BretHawnesR,d4
bsr Virenloeschen
bra RAM15

H80:
move.l #CompuPhagozyteD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive016
move.l #1452,d3
bsr Laden
cmp.l #" Com",$00000460(a5)
bne Drive016
move.l #CompuPhagozyteDiskText,d2
move.l #CompuPhagozyteDiskTextende,d3
bsr Ausgabe
bsr Drivename0
move.l #CompuPhagozyteD0,d4
bsr Virenloeschen2
clr.l $00000460(a5)
bra Drive016

H81:
move.l #CompuPhagozyteD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive116
move.l #1452,d3
bsr Laden
cmp.l #" Com",$00000460(a5)
bne Drive116
move.l #CompuPhagozyteDiskText,d2
move.l #CompuPhagozyteDiskTextende,d3
bsr Ausgabe
bsr Drivename1
move.l #CompuPhagozyteD1,d4
bsr Virenloeschen2
clr.l $00000460(a5)
bra Drive116

H82:
move.l #CompuPhagozyteD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive216
move.l #1452,d3
bsr Laden
cmp.l #" Com",$00000460(a5)
bne Drive216
move.l #CompuPhagozyteDiskText,d2
move.l #CompuPhagozyteDiskTextende,d3
bsr Ausgabe
bsr Drivename2
move.l #CompuPhagozyteD2,d4
bsr Virenloeschen2
clr.l $00000460(a5)
bra Drive216

H83:
move.l #CompuPhagozyteD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive316
move.l #1452,d3
bsr Laden
cmp.l #" Com",$00000460(a5)
bne Drive316
move.l #CompuPhagozyteDiskText,d2
move.l #CompuPhagozyteDiskTextende,d3
bsr Ausgabe
bsr Drivename3
move.l #CompuPhagozyteD3,d4
bsr Virenloeschen2
clr.l $00000460(a5)
bra Drive316

H84:
move.l #CompuPhagozyteR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM16
move.l #1452,d3
bsr Laden
cmp.l #" Com",$00000460(a5)
bne RAM16
move.l #CompuPhagozyteDiskText,d2
move.l #CompuPhagozyteDiskTextende,d3
bsr Ausgabe
bsr RAMname
move.l #CompuPhagozyteR,d4
bsr Virenloeschen2
clr.l $00000460(a5)
bra RAM16

H85:
move.l #CompuPhagozyte2D0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive017
move.l #1148,d3
bsr Laden
cmp.l #"The ",$00000380(a5)
beq H85V
cmp.l #"MER ",$00000460(a5)
beq H85VV
bra Drive017
H85V:
move.l #CompuPhagozyte2DiskText,d2
move.l #CompuPhagozyte2DiskTextende,d3
bsr Ausgabe
bra H85VVV
H85VV:
move.l #LamerVirusXText,d2
move.l #LamerVirusXTextende,d3
bsr Ausgabe
H85VVV:
bsr Drivename0
move.l #CompuPhagozyte2D0,d4
bsr Virenloeschen2
clr.l $00000380(a5)
clr.l $00000460(a5)
bra Drive017

H86:
move.l #CompuPhagozyte2D1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive117
move.l #1148,d3
bsr Laden
cmp.l #"The ",$00000380(a5)
beq H86V
cmp.l #"MER ",$00000460(a5)
beq H86VV
bra Drive117
H86V:
move.l #CompuPhagozyte2DiskText,d2
move.l #CompuPhagozyte2DiskTextende,d3
bsr Ausgabe
bra H86VVV
H86VV:
move.l #LamerVirusXText,d2
move.l #LamerVirusXTextende,d3
bsr Ausgabe
H86VVV:
bsr Drivename1
move.l #CompuPhagozyte2D1,d4
bsr Virenloeschen2
clr.l $00000380(a5)
clr.l $00000460(a5)
bra Drive117

H87:
move.l #CompuPhagozyte2D2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive217
move.l #1148,d3
bsr Laden
cmp.l #"The ",$00000380(a5)
beq H87V
cmp.l #"MER ",$00000460(a5)
beq H87VV
bra Drive217
H87V:
move.l #CompuPhagozyte2DiskText,d2
move.l #CompuPhagozyte2DiskTextende,d3
bsr Ausgabe
bra H87VVV
H87VV:
move.l #LamerVirusXText,d2
move.l #LamerVirusXTextende,d3
bsr Ausgabe
H87VVV:
bsr Drivename2
move.l #CompuPhagozyte2D2,d4
bsr Virenloeschen2
clr.l $00000380(a5)
clr.l $00000460(a5)
bra Drive217

H88:
move.l #CompuPhagozyte2D3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive317
move.l #1148,d3
bsr Laden
cmp.l #"The ",$00000380(a5)
beq H88V
cmp.l #"MER ",$00000460(a5)
beq H88VV
bra Drive317
H88V:
move.l #CompuPhagozyte2DiskText,d2
move.l #CompuPhagozyte2DiskTextende,d3
bsr Ausgabe
bra H88VVV
H88VV:
move.l #LamerVirusXText,d2
move.l #LamerVirusXTextende,d3
bsr Ausgabe
H88VVV:
bsr Drivename3
move.l #CompuPhagozyte2D3,d4
bsr Virenloeschen2
clr.l $00000380(a5)
clr.l $00000460(a5)
bra Drive317

H89:
move.l #CompuPhagozyte2R,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM17
move.l #1148,d3
bsr Laden
cmp.l #"The ",$00000380(a5)
beq H89V
cmp.l #"MER ",$00000460(a5)
beq H89VV
bra RAM17
H89V:
move.l #CompuPhagozyte2DiskText,d2
move.l #CompuPhagozyte2DiskTextende,d3
bsr Ausgabe
bra H89VVV
H89VV:
move.l #LamerVirusXText,d2
move.l #LamerVirusXTextende,d3
bsr Ausgabe
H89VVV:
bsr RAMname
move.l #CompuPhagozyte2R,d4
bsr Virenloeschen2
clr.l $00000380(a5)
clr.l $00000460(a5)
bra RAM17

H90:
move.l #DisasterMasterD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive018
move.l #804,d3
bsr Laden
cmp.l #"iskt",$00000220(a5)
beq H90V
cmp.l #"zyte",$000001A0(a5)
beq H90VV
bra Drive018
H90V:
move.l #DisktroyerText,d2
move.l #DisktroyerTextende,d3
bsr Ausgabe
bra H90VVV
H90VV:
move.l #CompuPhagozyteIIDiskVirusText,d2
move.l #CompuPhagozyteIIDiskVirusTextende,d3
bsr Ausgabe
H90VVV:
bsr Drivename0
move.l #DisasterMasterD0,d4
bsr Virenloeschen2
clr.l $00000220(a5)
clr.l $000001A0(a5)
bra Drive018

H91:
move.l #DisasterMasterD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive118
move.l #804,d3
bsr Laden
cmp.l #"iskt",$00000220(a5)
beq H91V
cmp.l #"zyte",$000001A0(a5)
beq H91VV
bra Drive118
H91V:
move.l #DisktroyerText,d2
move.l #DisktroyerTextende,d3
bsr Ausgabe
bra H91VVV
H91VV:
move.l #CompuPhagozyteIIDiskVirusText,d2
move.l #CompuPhagozyteIIDiskVirusTextende,d3
bsr Ausgabe
H91VVV:
bsr Drivename1
move.l #DisasterMasterD1,d4
bsr Virenloeschen2
clr.l $00000220(a5)
clr.l $000001A0(a5)
bra Drive118

H92:
move.l #DisasterMasterD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive218
move.l #804,d3
bsr Laden
cmp.l #"iskt",$00000220(a5)
beq H92V
cmp.l #"zyte",$000001A0(a5)
beq H92VV
bra Drive218
H92V:
move.l #DisktroyerText,d2
move.l #DisktroyerTextende,d3
bsr Ausgabe
bra H92VVV
H92VV:
move.l #CompuPhagozyteIIDiskVirusText,d2
move.l #CompuPhagozyteIIDiskVirusTextende,d3
bsr Ausgabe
H92VVV:
bsr Drivename2
move.l #DisasterMasterD2,d4
bsr Virenloeschen2
clr.l $00000220(a5)
clr.l $000001A0(a5)
bra Drive218

H93:
move.l #DisasterMasterD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive318
move.l #804,d3
bsr Laden
cmp.l #"iskt",$00000220(a5)
beq H93V
cmp.l #"zyte",$000001A0(a5)
beq H93VV
bra Drive318
H93V:
move.l #DisktroyerText,d2
move.l #DisktroyerTextende,d3
bsr Ausgabe
bra H93VVV
H93VV:
move.l #CompuPhagozyteIIDiskVirusText,d2
move.l #CompuPhagozyteIIDiskVirusTextende,d3
bsr Ausgabe
H93VVV:
bsr Drivename3
move.l #DisasterMasterD3,d4
bsr Virenloeschen2
clr.l $00000220(a5)
clr.l $000001A0(a5)
bra Drive318

H94:
move.l #DisasterMasterR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM18
move.l #804,d3
bsr Laden
cmp.l #"iskt",$00000220(a5)
beq H94V
cmp.l #"zyte",$000001A0(a5)
beq H94VV
bra RAM18
H94V:
move.l #DisktroyerText,d2
move.l #DisktroyerTextende,d3
bsr Ausgabe
bra H94VVV
H94VV:
move.l #CompuPhagozyteIIDiskVirusText,d2
move.l #CompuPhagozyteIIDiskVirusTextende,d3
bsr Ausgabe
H94VVV:
bsr RAMname
move.l #DisasterMasterR,d4
bsr Virenloeschen2
clr.l $00000220(a5)
clr.l $000001A0(a5)
bra RAM18

H95:
move.l #DisasterMasterD0II,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive019
move.l #804,d3
bsr Laden
cmp.l #"iskt",$00000220(a5)
beq H95V
cmp.l #"zyte",$000001A0(a5)
beq H95VV
bra Drive019
H95V:
move.l #DisktroyerText,d2
move.l #DisktroyerTextende,d3
bsr Ausgabe
bra H95VVV
H95VV:
move.l #CompuPhagozyteIIDiskVirusText,d2
move.l #CompuPhagozyteIIDiskVirusTextende,d3
bsr Ausgabe
H95VVV:
bsr Drivename0
move.l #DisasterMasterD0II,d4
bsr Virenloeschen2
clr.l $00000220(a5)
clr.l $000001A0(a5)
bra Drive019

H96:
move.l #DisasterMasterD1II,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive119
move.l #804,d3
bsr Laden
cmp.l #"iskt",$00000220(a5)
beq H96V
cmp.l #"zyte",$000001A0(a5)
beq H96VV
bra Drive119
H96V:
move.l #DisktroyerText,d2
move.l #DisktroyerTextende,d3
bsr Ausgabe
bra H96VVV
H96VV:
move.l #CompuPhagozyteIIDiskVirusText,d2
move.l #CompuPhagozyteIIDiskVirusTextende,d3
bsr Ausgabe
H96VVV:
bsr Drivename1
move.l #DisasterMasterD1II,d4
bsr Virenloeschen2
clr.l $00000220(a5)
clr.l $000001A0(a5)
bra Drive119

H97:
move.l #DisasterMasterD2II,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive219
move.l #804,d3
bsr Laden
cmp.l #"iskt",$00000220(a5)
beq H97V
cmp.l #"zyte",$000001A0(a5)
beq H97VV
bra Drive219
H97V:
move.l #DisktroyerText,d2
move.l #DisktroyerTextende,d3
bsr Ausgabe
bra H97VVV
H97VV:
move.l #CompuPhagozyteIIDiskVirusText,d2
move.l #CompuPhagozyteIIDiskVirusTextende,d3
bsr Ausgabe
H97VVV:
bsr Drivename2
move.l #DisasterMasterD2II,d4
bsr Virenloeschen2
clr.l $00000220(a5)
clr.l $000001A0(a5)
bra Drive219

H98:
move.l #DisasterMasterD3II,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive319
move.l #804,d3
bsr Laden
cmp.l #"iskt",$00000220(a5)
beq H98V
cmp.l #"zyte",$000001A0(a5)
beq H98VV
bra Drive319
H98V:
move.l #DisktroyerText,d2
move.l #DisktroyerTextende,d3
bsr Ausgabe
bra H98VVV
H98VV:
move.l #CompuPhagozyteIIDiskVirusText,d2
move.l #CompuPhagozyteIIDiskVirusTextende,d3
bsr Ausgabe
H98VVV:
bsr Drivename3
move.l #DisasterMasterD3II,d4
bsr Virenloeschen2
clr.l $00000220(a5)
clr.l $000001A0(a5)
bra Drive319

H99:
move.l #DisasterMasterRII,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM19
move.l #804,d3
bsr Laden
cmp.l #"iskt",$00000220(a5)
beq H99V
cmp.l #"zyte",$000001A0(a5)
beq H99VV
bra RAM19
H99V:
move.l #DisktroyerText,d2
move.l #DisktroyerTextende,d3
bsr Ausgabe
bra H99VVV
H99VV:
move.l #CompuPhagozyteIIDiskVirusText,d2
move.l #CompuPhagozyteIIDiskVirusTextende,d3
bsr Ausgabe
H99VVV:
bsr RAMname
bsr Ausgabe
move.l #DisasterMasterRII,d4
bsr Virenloeschen2
clr.l $00000220(a5)
clr.l $000001A0(a5)
bra RAM19

H100:
move.l #DAGCreatorD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive020
move.l #5000,d3
bsr Laden
cmp.l #$024D4558,$000006F0(a5)
bne Drive020
move.l #DAGCreatorText,d2
move.l #DAGCreatorTextende,d3
bsr Ausgabe
bsr Drivename0
move.l #DAGCreatorD0,d4
bsr Virenloeschen2
clr.l $000006F0(a5)
bra Drive020

H101:
move.l #DAGCreatorD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive120
move.l #5000,d3
bsr Laden
cmp.l #$024D4558,$000006F0(a5)
bne Drive120
move.l #DAGCreatorText,d2
move.l #DAGCreatorTextende,d3
bsr Ausgabe
bsr Drivename1
move.l #DAGCreatorD1,d4
bsr Virenloeschen2
clr.l $000006F0(a5)
bra Drive120

H102:
move.l #DAGCreatorD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive220
move.l #5000,d3
bsr Laden
cmp.l #$024D4558,$000006F0(a5)
bne Drive220
move.l #DAGCreatorText,d2
move.l #DAGCreatorTextende,d3
bsr Ausgabe
bsr Drivename2
move.l #DAGCreatorD2,d4
bsr Virenloeschen2
clr.l $000006F0(a5)
bra Drive220

H103:
move.l #DAGCreatorD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive320
move.l #5000,d3
bsr Laden
cmp.l #$024D4558,$000006F0(a5)
bne Drive320
move.l #DAGCreatorText,d2
move.l #DAGCreatorTextende,d3
bsr Ausgabe
bsr Drivename3
move.l #DAGCreatorD3,d4
bsr Virenloeschen2
clr.l $000006F0(a5)
bra Drive320

H104:
move.l #DAGCreatorR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM20
move.l #5000,d3
bsr Laden
cmp.l #$024D4558,$000006F0(a5)
bne RAM20
move.l #DAGCreatorText,d2
move.l #DAGCreatorTextende,d3
bsr Ausgabe
bsr RAMname
move.l #DAGCreatorR,d4
bsr Virenloeschen2
clr.l $000006F0(a5)
bra RAM20

H105:
move.l #DAGCreatorD0Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive021
move.l #5000,d3
bsr Laden
cmp.l #$024D4558,$000006F0(a5)
bne Drive021
move.l #DAGCreatorText,d2
move.l #DAGCreatorTextende,d3
bsr Ausgabe
bsr Drivename0
move.l #DAGCreatorD0Root,d4
bsr Virenloeschen2
clr.l $000006F0(a5)
bra Drive021

H106:
move.l #DAGCreatorD1Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive121
move.l #5000,d3
bsr Laden
cmp.l #$024D4558,$000006F0(a5)
bne Drive121
move.l #DAGCreatorText,d2
move.l #DAGCreatorTextende,d3
bsr Ausgabe
bsr Drivename1
move.l #DAGCreatorD1Root,d4
bsr Virenloeschen2
clr.l $000006F0(a5)
bra Drive121

H107:
move.l #DAGCreatorD2Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive221
move.l #5000,d3
bsr Laden
cmp.l #$024D4558,$000006F0(a5)
bne Drive221
move.l #DAGCreatorText,d2
move.l #DAGCreatorTextende,d3
bsr Ausgabe
bsr Drivename2
move.l #DAGCreatorD2Root,d4
bsr Virenloeschen2
clr.l $000006F0(a5)
bra Drive221

H108:
move.l #DAGCreatorD3Root,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive321
move.l #5000,d3
bsr Laden
cmp.l #$024D4558,$000006F0(a5)
bne Drive321
move.l #DAGCreatorText,d2
move.l #DAGCreatorTextende,d3
bsr Ausgabe
bsr Drivename3
move.l #DAGCreatorD3Root,d4
bsr Virenloeschen2
clr.l $000006F0(a5)
bra Drive321

H109:
move.l #DAGCreatorRRoot,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM21
move.l #5000,d3
bsr Laden
cmp.l #$024D4558,$000006F0(a5)
bne RAM21
move.l #DAGCreatorText,d2
move.l #DAGCreatorTextende,d3
bsr Ausgabe
bsr RAMname
move.l #DAGCreatorRRoot,d4
bsr Virenloeschen2
clr.l $000006F0(a5)
bra RAM21

H110:
move.l #LamerVirusXD0,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive022
move.l #5000,d3
bsr Laden
cmp.l #"MER ",$00000460(a5)
bne Drive022
move.l #LamerVirusXText,d2
move.l #LamerVirusXTextende,d3
bsr Ausgabe
bsr Drivename0
move.l #LamerVirusXD0,d4
bsr Virenloeschen2
clr.l $00000460(a5)
bra Drive022

H111:
move.l #LamerVirusXD1,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive122
move.l #5000,d3
bsr Laden
cmp.l #"MER ",$00000460(a5)
bne Drive122
move.l #LamerVirusXText,d2
move.l #LamerVirusXTextende,d3
bsr Ausgabe
bsr Drivename1
move.l #LamerVirusXD1,d4
bsr Virenloeschen2
clr.l $00000460(a5)
bra Drive122

H112:
move.l #LamerVirusXD2,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive222
move.l #5000,d3
bsr Laden
cmp.l #"MER ",$00000460(a5)
bne Drive222
move.l #LamerVirusXText,d2
move.l #LamerVirusXTextende,d3
bsr Ausgabe
bsr Drivename2
move.l #LamerVirusXD2,d4
bsr Virenloeschen2
clr.l $00000460(a5)
bra Drive222

H113:
move.l #LamerVirusXD3,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq Drive322
move.l #5000,d3
bsr Laden
cmp.l #"MER ",$00000460(a5)
bne Drive322
move.l #LamerVirusXText,d2
move.l #LamerVirusXTextende,d3
bsr Ausgabe
bsr Drivename3
move.l #LamerVirusXD3,d4
bsr Virenloeschen2
clr.l $00000460(a5)
bra Drive322

H114:
move.l #LamerVirusXR,d1
bsr Virensuche
move.l d0,Dateihandle
cmp.l #0,d0
beq RAM22
move.l #5000,d3
bsr Laden
cmp.l #"MER ",$00000460(a5)
bne RAM22
move.l #LamerVirusXText,d2
move.l #LamerVirusXTextende,d3
bsr Ausgabe
bsr RAMname
move.l #LamerVirusXR,d4
bsr Virenloeschen2
clr.l $00000460(a5)
bra RAM22


H115:
cmp.l #0,d4
beq NoDiskVirus
H116:
bsr CloseWin
bra CloseDos

OpenDos:
move.l Execbase,a6
move.l #Dosname,a1
move.l #0,d0
jsr OpenLibrary(a6)
rts

OpenIntui:
move.l ExecBase,a6
move.l #Intuiname,a1
move.l #0,d0
jsr OpenLibrary(a6)
rts

CheckMem2:
cmp.l #$42616E64,$0007E820
beq ByteBandit
cmp.l #$44415341,$0007F8C0
beq ByteWarrior
cmp.l #$47414441,$0007FB40
beq Gadaffi
cmp.l #"from",$0007EFB6
beq DAG
cmp.l #$53434121,$0007EFE8
beq SCA
cmp.l #$4E4F5254,$0007EF84
beq NORTH
cmp.l #$57726974,$0007EF9A
beq NORTH2
cmp.l #$482E432E,$0007EF44
beq HCS
cmp.l #$656E7461,$0007FD86
beq Pentagon
cmp.l #$52657665,$0007E3E2
beq Revenge
cmp.l #$636C6970,$000907BE
beq DiskDoktors
cmp.l #$4C534421,$0007EFE4
beq LSD
cmp.l #$424F4D42,$00070346
beq TimeBomb
cmp.l #$56697275,$0007E820
beq MAD
cmp.l #$004D4144,$0007FB72
beq MADII
cmp.l #$48495621,$0007EFF0
beq AIDS
cmp.l #$43726577,$0007EDE0
beq The16BitCrew
cmp.l #$30303132,$0007EFE8
beq V2001
cmp.w #"99",$0007F82E
beq TFC
cmp.w #"99",$000FF82E
beq TFC
cmp.l #"A'e*",$0007EBC0
beq AIDSVkill
cmp.l #"ALIE",$00020240
beq AlienNewBeat
cmp.l #"AMIG",$0007E81E
beq AmigaFreak
cmp.l #"Mast",$0007EF30
beq AmigaMaster
cmp.l #"SV!A",$0007DF00
beq ASV
cmp.l #"Aust",$0007EB6C
beq AustralianParasite
cmp.l #"BS1!",$0007EFE8
beq BamigaSectorOne
cmp.l #"blac",$0007F010
beq Blackflash
cmp.l #"lade",$0007EF30
beq BladeRunners
cmp.l #"Bliz",$0007E420
beq BlizzProV31
cmp.l #"Bliz",$0007E020
beq BlizzProV33
cmp.l #"BAHA",$0007EF2C
beq Butonic
cmp.l #"NqNq",$0007EAA6
beq ByteBanditPlus
cmp.l #"dos.",$0007E826
beq ByteBanditZwei
cmp.l #"VOYA",$0007F330
beq ByteVoyager
cmp.l #"oyag",$0007F2E2
beq ByteVoyagerII
cmp.l #"CCCP",-$00000030(a2)
beq CCCP
cmp.l #"devi",-$000000E0(a3)
beq LamerStyle
cmp.l #"LONK",$0007D398
beq Clonk
cmp.l #"oder",$0007FA5C
beq CodersNightmare
cmp.l #"T '8",$0007FAC0
beq DAT89
cmp.l #"estr",$0007ED80
beq Destructor
cmp.l #"EMOT",$0007EE80
beq DigitalEmotions
cmp.l #" H e",$0007EF90
beq DiskHerpes
cmp.l #"DISK",$0007FCF4
beq Diskguard
cmp.l #"XTRE",$0007FA74
beq Extreme
cmp.l #"XTRE",$000FFA74
beq Extreme
cmp.l #"ains",$0007F240
beq FAST
cmp.l #"F.I.",$0007F0F2
beq FICA
bsr NoBootblockVirus
rts

ByteBandit:
move.l #ByteBanditText,d4
move.l #ByteBanditTextende,d5
move.l 4,a6
clr.l 550(a6)
clr.l 554(a6)
clr.l $0007E820
bsr BootblockVirus
bra CheckMem2

ByteWarrior:
move.l #ByteWarriorText,d4
move.l #ByteWarriorTextende,d5
move.l 4,a6
clr.l 550(a6)
clr.l 554(a6)
clr.l $0007F8C0
bsr BootblockVirus
bra CheckMem2

SCA:
move.l #SCAText,d4
move.l #SCATextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EFE8
bsr BootblockVirus
bra CheckMem2

Gadaffi:
move.l #GadaffiText,d4
move.l #GadaffiTextende,d5
move.l 4,a6
clr.l $0007FB40
bsr RAMIN
bsr BootblockVirus
bra CheckMem2

NORTH:
move.l #NORTHText,d4
move.l #NORTHTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EF84
bsr BootblockVirus
bra CheckMem2

NORTH2:
move.l #NORTH2Text,d4
move.l #NORTH2Textende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EF9A
bsr BootblockVirus
bra CheckMem2

HCS:
move.l #HCSText,d4
move.l #HCSTextende,d5
move.l 4,a6
clr.l 46(a6)
move.l #$13FC0000,$0007ECD2
clr.l $0007EF44
bsr BootblockVirus
bra CheckMem2

Revenge:
move.l #RevengeText,d4
move.l #RevengeTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007E3E2
bsr BootblockVirus
bra CheckMem2

Pentagon:
move.l #PentagonText,d4
move.l #PentagonTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007FD86
bsr BootblockVirus
bra CheckMem2

DiskDoktors:
move.l #DiskDoktorsText,d4
move.l #DiskDoktorsTextende,d5
bsr BootblockVirus
bra CheckMem2

LSD:
move.l #LSDText,d4
move.l #LSDTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EFE4
bsr BootblockVirus
bra CheckMem2

TimeBomb:
move.l #TimeBombText,d4
move.l #TimeBombTextende,d5
clr.l $00070346
bsr BootblockVirus
bra CheckMem2

MAD:
move.l #MADText,d4
move.l #MADTextende,d5
clr.l $0007E820
bsr BootblockVirus
bra CheckMem2

MADII:
move.l #MADIIText,d4
move.l #MADIITextende,d5
clr.l $0007FB72
bsr RAMIN
bsr BootblockVirus
bra CheckMem2

AIDS:
move.l #AIDSText,d4
move.l #AIDSTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EFF0
bsr BootblockVirus
bra CheckMem2

The16BITCrew:
move.l #The16BITCrewText,d4
move.l #The16BITCrewTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EDE0
bsr BootblockVirus
bra CheckMem2

V2001:
move.l #V2001Text,d4
move.l #V2001Textende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EFE8
bsr BootblockVirus
bra CheckMem2

TFC:
move.l #TFCText,d4
move.l #TFCTextende,d5
move.l 4,a6
clr.l 554(a6)
clr.w $0007F82E
clr.w $000FF82E
bsr BootblockVirus
bra CheckMem2

AIDSVkill:
move.l #AIDSVkillText,d4
move.l #AIDSVkillTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EBC0
bsr BootblockVirus
bra CheckMem2

AlienNewBeat:
move.l #AlienNewBeatText,d4
move.l #AlienNewBeatTextende,d5
move.l 4,a6
clr.l 42(a6)
clr.l 46(a6)
clr.l $00020240
bsr BootblockVirus
bra CheckMem2

AmigaFreak:
move.l #AmigaFreakText,d4
move.l #AmigaFreakTextende,d5
move.l 4,a6
clr.l 550(a6)
clr.l 554(a6)
clr.l $0007E81E
bsr BootblockVirus
bra CheckMem2

AmigaMaster:
move.l #AmigaMasterText,d4
move.l #AmigaMasterTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EF30
bsr BootblockVirus
bra CheckMem2

ASV:
move.l #ASVText,d4
move.l #ASVTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007DF00
bsr BootblockVirus
bra CheckMem2

AustralianParasite:
move.l #AustralianParasiteText,d4
move.l #AustralianParasiteTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EB6C
bsr BootblockVirus
bra CheckMem2

BamigaSectorOne:
move.l #BamigaSectorOneText,d4
move.l #BamigaSectorOneTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EFE8
bsr BootblockVirus
bra CheckMem2

Blackflash:
move.l #BlackflashText,d4
move.l #BlackflashTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007F010
bsr BootblockVirus
bra CheckMem2

BladeRunners:
move.l #BladeRunnersText,d4
move.l #BladeRunnersTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EF30
bsr BootblockVirus
bra CheckMem2

BlizzProV31:
move.l #BlizzProV31Text,d4
move.l #BlizzProV31Textende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007E420
bsr BootblockVirus
bra CheckMem2

BlizzProV33:
move.l #BlizzProV33Text,d4
move.l #BlizzProV33Textende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007E020
bsr BootblockVirus
bra CheckMem2

Butonic:
move.l #ButonicText,d4
move.l #ButonicTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EF2C
bsr BootblockVirus
bra CheckMem2

ByteBanditPlus:
move.l #ByteBanditPlusText,d4
move.l #ByteBanditPlusTextende,d5
move.l 4,a6
clr.l 550(a6)
clr.l 554(a6)
clr.l $0007EAA6
bsr BootblockVirus
bra CheckMem2

ByteBanditZwei:
move.l #ByteBanditZweiText,d4
move.l #ByteBanditZweiTextende,d5
move.l 4,a6
clr.l 550(a6)
clr.l 554(a6)
clr.l $0007E826
bsr BootblockVirus
bra CheckMem2

ByteVoyager:
move.l #ByteVoyagerText,d4
move.l #ByteVoyagerTextende,d5
move.l 4,a6
clr.l 550(a6)
clr.l 554(a6)
clr.l $0007F330
bsr BootblockVirus
bra CheckMem2

ByteVoyagerII:
move.l #ByteVoyagerIIText,d4
move.l #ByteVoyagerIITextende,d5
move.l 4,a6
clr.l 550(a6)
clr.l 554(a6)
clr.l $0007F2E2
bsr BootblockVirus
bra CheckMem2

CCCP:
move.l #CCCPText,d4
move.l #CCCPTextende,d5
bsr BootblockVirus
bra CheckMem2

LamerStyle:
move.l #LamerStyleText,d4
move.l #LamerStyleTextende,d5
clr.l (a3)
bsr RAMIN
bsr BootblockVirus
bra CheckMem2

Clonk:
move.l #ClonkText,d4
move.l #ClonkTextende,d5
move.l 4,a6
clr.l 546(a6)
clr.l 550(a6)
clr.l 554(a6)
clr.l $0007D398
bsr BootblockVirus
bra CheckMem2

CodersNightmare:
move.l #CodersNightmareText,d4
move.l #CodersNightmareTextende,d5
move.l 4,a6
clr.l 550(a6)
clr.l 554(a6)
clr.l $0007FA5C
bsr BootblockVirus
bra CheckMem2

DAG:
move.l #DAGText,d4
move.l #DAGTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EFB6
bsr BootblockVirus
bra CheckMem2

DAT89:
move.l #DAT89Text,d4
move.l #DAT89Textende,d5
move.l 4,a6
clr.l 550(a6)
clr.l 554(a6)
clr.l $0007FAC0
bsr BootblockVirus
bra CheckMem2

Destructor:
move.l #DestructorText,d4
move.l #destructorTextende,d5
move.l 4,a6
clr.l 42(a6)
clr.l $0007ED80
bsr BootblockVirus
bra CheckMem2

DigitalEmotions:
move.l #DigitalEmotionsText,d4
move.l #DigitalEmotionsTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EE80
bsr BootblockVirus
bra CheckMem2

DiskHerpes:
move.l #DiskHerpesText,d4
move.l #DiskHerpesTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007EF90
bsr BootblockVirus
bra CheckMem2

Diskguard:
move.l #DiskguardText,d4
move.l #DiskguardTextende,d5
move.l 4,a6
clr.l 46(a6)
clr.l $0007FCF4
bsr BootblockVirus
bra CheckMem2

Extreme:
move.l #ExtremeText,d4
move.l #ExtremeTextende,d5
move.l 4,a6
clr.l 554(a6)
clr.l $0007FA74
clr.l $000FFA74
bsr BootblockVirus
bra CheckMem2

FAST:
move.l #FASTText,d4
move.l #FASTTextende,d5
clr.l $0007F240
bsr RAMIN
bsr BootblockVirus
bra CheckMem2

FICA:
move.l #FICAText,d4
move.l #FICATextende,d5
move.l 4,a6
clr.l 550(a6)
clr.l 554(a6)
clr.l $0007F0F2
bsr BootblockVirus
bra CheckMem2

ResetRoutine:
move.l 4,a6
lea ProgrammEnde(pc),a0
lea ResetProgramm(pc),a1
sub.l a1,a0
move.l a0,d0
move.l d0,d2
move.l #500,d0
move.l #$0007E000,a1
move.l 4,a6
jsr -204(a6)
tst.l d0
beq EinDollar
move.l d0,a1
move.l a1,46(a6)
lea ResetProgramm(pc),a1
move.l d2,d0

move.l #$0007E000,a0
Circle:
move.b (a1)+,(a0)+
cmp.l #ProgrammEnde,a1
bne.s Circle

clr.w 82(a6)
lea 34(a6),a0
moveq #24,d0
clr.w d1

ZweiDollar:
add.w (a0)+,d1
dbf d0,ZweiDollar
not.w d1
move.w d1,82(a6)

EinDollar:
clr.l d0